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.