names(smth2)
[1] "V1" "V2"
> plot(smth2$V1,smth2$V2)
> x_smth2$V1
> x
 [1] 202 208 208 212 214 216 218 220 222 226
attr(, ".guiColInfo"):
[1] "TXPROP_ColWidth<-12"            "TXPROP_ColJustification<-Right"
[3] "TXPROP_ObjectNote<-"            "TXPROP_ColFloatFormat<-Decimal"
[5] "TXPROP_ColPrecision<-2"        
> y_smth2$V2
> plot(x,y)
> ls()
 [1] ".Last.value"  ".Random.seed" "2v_smooth"    "DS1"         
 [5] "DS2"          "DS3"          "SDF1"         "last.dump"   
 [9] "smth"         "smth2"        "x"            "y"           
> smth2
    V1  V2 
 1 202   2
 2 208  22
 3 208  62
 4 212 106
 5 214 148
 6 216 186
 7 218 234
 8 220 268
 9 222 314
10 226 352
> smth2(1)
Error: couldn't find function "smth2"
> rm(x,y)



 x_smth2$V1
 y_smth2$V2
 plot(x,y)
 lines(smooth.spline(x, y), lty=2)
 lines(loess.smooth(x,y), lty=3)
 lines(ksmooth(x,y), lty=4)


> x_as.matrix(smth2)
> x
    V1  V2 
 1 202   2
 2 208  22
 3 208  62
 4 212 106
 5 214 148
 6 216 186
 7 218 234
 8 220 268
 9 222 314
10 226 352
> x[1,]
  V1 V2 
 202  2
> x[4,]
  V1  V2 
 212 106
> x[,2]
 1  2  3   4   5   6   7   8   9  10 
 2 22 62 106 148 186 234 268 314 352
> smth2
    V1  V2 
 1 202   2
 2 208  22
 3 208  62
 4 212 106
 5 214 148
 6 216 186
 7 218 234
 8 220 268
 9 222 314
10 226 352
> smth2[4,]
   V1  V2 
4 212 106
> rm(x)
> plot(smth2[,1], smth[,2])
>