Hi bgnumis, This is definitely a guess at what you want to do: flatbat<-read.table(text="100.00000 100.00000 100.00000 100.00000 100.0000 100.00000 100.00000 100.00000 100.54163 99.23893 100.77238 98.95058 100.2250 99.18830 100.18801 101.10791 99.61230 102.12813 99.34499 97.52805 101.8252 99.97846 95.91478 102.90392 102.04546 100.38053 100.80122 100.10281 100.4912 98.04112 101.17684 100.16137 97.27201 100.19247 100.43301 101.04954 102.9921 98.25110 98.31890 100.98710 103.68170 104.95366 99.03839 99.81437 100.7232 102.47300 99.17555 99.09212") # define a function that will return a data frame with smoothed values smother<-function(x) return(supsmu(1:length(x),x)$y) # apply it to the original data frame flatmat<-sapply(flatbat,smother) # plot it matplot(flatmat,type="l")
I still haven't worked out what you mean by a "smoth bell". Jim On Fri, Oct 9, 2015 at 7:07 AM, bgnumis bgnum <bgnu...@gmail.com> wrote: > Hi all, > > I have a matrix data and I use to plot matplot, it is suposed each column > is a temporal series. As you see in the example the matrix o data have > "peaks" I want to plot (using matplot or what yoy can say me) this matrix > but with and smoothed line envoloving the values of the matrix so when > plotted all the appearce of the lines will be smoth bell. Do you think is > it possible. > > Can anyone suggest to make a tranform? > > Could be smotthing the lines plotted (columns) will be achieved but not > suere if it is possible. > > > > > > > > [,1] [,2] [,3] [,4] [,5] [,6] [,7] > [1,] 100.00000 100.00000 100.00000 100.00000 100.0000 100.00000 100.00000 > [2,] 100.54163 99.23893 100.77238 98.95058 100.2250 99.18830 100.18801 > [3,] 99.61230 102.12813 99.34499 97.52805 101.8252 99.97846 95.91478 > [4,] 102.04546 100.38053 100.80122 100.10281 100.4912 98.04112 101.17684 > [5,] 97.27201 100.19247 100.43301 101.04954 102.9921 98.25110 98.31890 > [6,] 103.68170 104.95366 99.03839 99.81437 100.7232 102.47300 99.17555 > [,8] > [1,] 100.00000 > [2,] 101.10791 > [3,] 102.90392 > [4,] 100.16137 > [5,] 100.98710 > [6,] 99.09212 > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > 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. > [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see 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.
