R-ohjelmointi.org

Tilastotieteellistä ohjelmointia R-kielellä

textConnection()

Esimerkki, että miten textConnection-funktiota voi käyttää luettaessa R:ään esim. pilkulla separoitua dataa vaikka suoraan tekstitiedostosta:

x <- "AB1,AN3
AM1,AN3
AN1,AN3,ASX
AN3,AN1,AP6
AN3,ANX,AN1,AB3
AN3,APK"
xy <- read.table(textConnection(x), header=FALSE)
xy
rm(xy)
xy <- read.table(textConnection(x), sep=",", header=FALSE, na.strings="", 
fill=TRUE)
xy
closeAllConnections()

Ja miltä tämä näyttää käytännössä:

> x <- "AB1,AN3
+ AM1,AN3
+ AN1,AN3,ASX
+ AN3,AN1,AP6
+ AN3,ANX,AN1,AB3
+ AN3,APK"
> xy <- read.table(textConnection(x), header=FALSE)
> xy
               V1
1         AB1,AN3
2         AM1,AN3
3     AN1,AN3,ASX
4     AN3,AN1,AP6
5 AN3,ANX,AN1,AB3
6         AN3,APK
> rm(xy)
> xy <- read.table(textConnection(x), sep=",", header=FALSE, na.strings="", 
fill=TRUE)
> xy
   V1  V2   V3   V4
1 AB1 AN3 <NA> <NA>
2 AM1 AN3 <NA> <NA>
3 AN1 AN3  ASX <NA>
4 AN3 AN1  AP6 <NA>
5 AN3 ANX  AN1  AB3
6 AN3 APK <NA> <NA>
> closeAllConnections()
>


Vastaa

Sähköpostiosoitettasi ei julkaista. Pakolliset kentät on merkitty *