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 <bgnumis at 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 at 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]]