arun kirshna wrote
> Hi,
> Try this:
> tab1<-read.csv2("Specimen_RawData_1.csv",sep="\t",nrows=-1)
> tab2<-as.data.frame(sapply(tab1,function(x)
> gsub("[,]",".",x)),stringsAsFactors=FALSE)
> tab3<-tab2[-1,]
> tab3[]<-sapply(tab3,as.numeric)
> row.names(tab3)<-1:nrow(tab3)
> head(tab3)
> # Carico.compressione Corsa.compressione Tempo
> Deformazione.in.compressione
> #1 0.16648 0.00000 0.000
> 0.00000
> #2 0.16622 0.00000 0.002
> 0.00000
> #3 0.16585 0.00000 0.004
> 0.00000
> #4 3.96132 0.14063 0.104
> 0.01078
> #5 20.67722 0.31937 0.204
> 0.02449
> #6 39.88020 0.49078 0.304
> 0.03763
> str(tab3)
> #'data.frame': 81 obs. of 4 variables:
> # $ Carico.compressione : num 0.166 0.166 0.166 3.961 20.677 ...
> # $ Corsa.compressione : num 0 0 0 0.141 0.319 ...
> # $ Tempo : num 0 0.002 0.004 0.104 0.204 0.304
> 0.404 0.504 0.604 0.704 ...
> # $ Deformazione.in.compressione: num 0 0 0 0.0108 0.0245 ...
> A.K.
Thank you very much.
It work very well!
Best,
Roberto
--
View this message in context:
http://r.789695.n4.nabble.com/Problem-to-read-non-standard-csv-file-tp4646018p4646036.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
