Re: [R] Help in R code

2020-10-18 Thread Martin Møller Skarbiniks Pedersen
I think you first should read and understand this:
https://stackoverflow.com/help/minimal-reproducible-example
and
https://stackoverflow.com/help/how-to-ask

On Sun, Oct 18, 2020, 11:57 Faheem Jan via R-help 
wrote:

> Good morning,  Please help me to code this code in R.
> I working in the multivariate time series data, know my objective is that
> to one year forecast of the hourly time series data, using first five as a
> training set and the remaining one year as validation. For this  I
> transform the the data into functional data through Fourier basis
> functional, apply functional principle components as dimensional reduction
> explaining a specific amount of variation   , using the corresponding
> functional principle components scores. I use the VAR model on those
> FPCscores for forecasting one day ahead forecast, know my problem is that i
> choose four Fpc scores which give only four value in a single day, I want
> the forecast for 24 hours not only 4, and then i want to transform it back
> to the original functional data. for the understanding i am sharing my code
> (1) transform of the multivariate time series data in functional data(2)
> the functional principle components and the corresponding scores(3) I use
> functional final prediction error for the selection of the parameters on
> the VAR model(4) Using VAR for the analysis and forecasting .(1) nb = 23 #
> number of basis functions for the data  fbf =
> create.fourier.basis(rangeval=c(0,1), nbasis=nb) # basis for data
> args=seq(0,1,length=24)  fdata1=Data2fd(args,y=t(mat),fbf) # functions
> generated from discretized y(2) ffpe = fFPE(fdata1, Pmax=10)  d.hat =
> ffpe[1] #order of the model  p.hat = ffpe[2] #lag of the model
> (3) n = ncol(fdata1$coef)  D = nrow(fdata1$coef)  #center the data  mu =
> mean.fd(fdata1)  data = center.fd(fdata1)  #fPCA  fpca =
> pca.fd(data,nharm=D)  scores = fpca$scores[,1:d.hat](4) # to avoid warnings
> from vars predict function below  colnames(scores) <-
> as.character(seq(1:d.hat))  VAR.pre= predict(VAR(scores, p.hat),
> n.ahead=1, type="const")$fcst
> after this I need help first how to transform this into original
> Functional data and to obtain the for for each 24 hours (mean one day
> forecast) and to how to generalize the result for one year.
>
>
> [[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.


[R] Help in R code

2020-10-18 Thread Faheem Jan via R-help
Good morning,  Please help me to code this code in R.
I working in the multivariate time series data, know my objective is that to 
one year forecast of the hourly time series data, using first five as a 
training set and the remaining one year as validation. For this  I transform 
the the data into functional data through Fourier basis functional, apply 
functional principle components as dimensional reduction explaining a specific 
amount of variation   , using the corresponding  functional principle 
components scores. I use the VAR model on those FPCscores for forecasting one 
day ahead forecast, know my problem is that i choose four Fpc scores which give 
only four value in a single day, I want the forecast for 24 hours not only 4, 
and then i want to transform it back to the original functional data. for the 
understanding i am sharing my code (1) transform of the multivariate time 
series data in functional data(2) the functional principle components and the 
corresponding scores(3) I use functional final prediction error for the 
selection of the parameters on the VAR model(4) Using VAR for the analysis and 
forecasting .(1) nb = 23 # number of basis functions for the data  fbf = 
create.fourier.basis(rangeval=c(0,1), nbasis=nb) # basis for data  
args=seq(0,1,length=24)  fdata1=Data2fd(args,y=t(mat),fbf) # functions 
generated from discretized y(2) ffpe = fFPE(fdata1, Pmax=10)  d.hat = ffpe[1] 
#order of the model  p.hat = ffpe[2] #lag of the model
(3) n = ncol(fdata1$coef)  D = nrow(fdata1$coef)  #center the data  mu = 
mean.fd(fdata1)  data = center.fd(fdata1)  #fPCA  fpca = pca.fd(data,nharm=D)  
scores = fpca$scores[,1:d.hat](4) # to avoid warnings from vars predict 
function below      colnames(scores) <- as.character(seq(1:d.hat))      
VAR.pre= predict(VAR(scores, p.hat), n.ahead=1, type="const")$fcst
after this I need help first how to transform this into original Functional 
data and to obtain the for for each 24 hours (mean one day forecast) and to how 
to generalize the result for one year.


[[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.


Re: [R] help for R code

2020-10-13 Thread Eric Berger
Hi Ablaye,
The CRAN repository has thousands of available R packages. To help
people find relevant packages amid such a huge collection, there are
some 'task view' pages that group packages according to a particular
task. I am guessing that you are interested in kernels because of
their use in machine learning, so you might want to look at the
Machine Learning task view at:

https://cran.r-project.org/web/views/MachineLearning.html

If you search for 'kernels' on that page you will find

'Support Vector Machines and Kernel Methods' which mentions a few
packages that use kernels.

Good luck,
Eric


On Tue, Oct 13, 2020 at 10:09 AM Ablaye Ngalaba  wrote:
>
> Good morning dear administrators,
> Please help me to code this code in R.
> I use in this file the redescription function Φ which by making a scalar
> product gives a . You can also choose instead of the redescription function
> Φ a kernel k(x,x).
>
>
>
>
>   Sincerely
>
> [[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.

__
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.


[R] help for R code

2020-10-13 Thread Ablaye Ngalaba
Good morning dear administrators,
Please help me to code this code in R.
I use in this file the redescription function Φ which by making a scalar
product gives a . You can also choose instead of the redescription function
Φ a kernel k(x,x).




  Sincerely

[[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.


Re: [R] Help in R code

2020-10-04 Thread Rui Barradas

Hello,

This is cross-posted, you have posted the same question in SO[1].
Cross-posting is not well seen, post the question in one place and 
please wait a few days for an answer before posting here.


[1] 
https://stackoverflow.com/questions/64197235/forecasting-of-multivariate-data-through-vector-autoregression-model


Hope this helps,

Rui Barradas

Às 17:25 de 04/10/20, Faheem Jan via R-help escreveu:

Hello , i am working in the functional time series using themultivariate time 
series data(hourly time series data). Sir  i am usingFAR model more than one 
order for which no statistical package is available inR, so for this i convert 
my data into functional form and obtained thefunctional principle component and 
from those FPCA i extract theircorresponding  FPCscores. Know i use the VAR 
model on those FPCscores forthe forecasting of each 24 hours through the VAR 
model, but the VAR give me theforecasted value for all 23hours  when i put 
phat=23, but whenever i putphat=24 i.e want to predict each 24 hours its give 
the results in the form ofNA. the code is given below

  


fdata<- function(mat){

   nb = 27 # number of basis functions for the data

   fbf = create.fourier.basis(rangeval=c(0,1), nbasis=nb) #basis for data

   args=seq(0,1,length=24)

   fdata1=Data2fd(args,y=t(mat),fbf) # functions generatedfrom discretized y

   return(fdata1)

}

prediction.ffpe = function(fdata1){

   n = ncol(fdata1$coef)

   D = nrow(fdata1$coef)

   #center the data

   #mu = mean.fd(fdata1)

   data = center.fd(fdata1)

   #ffpe = fFPE(fdata1, Pmax=10)

   #p.hat = ffpe[2] #order of the model

   d.hat=23

   p.hat=6

   #fPCA

   fpca = pca.fd(data,nharm=D, centerfns=TRUE)

   scores = fpca$scores[,0:d.hat]

   # to avoid warnings from vars predict function below

   colnames(scores) <- as.character(seq(1:d.hat))

   VAR.pre= predict(VAR(scores, p.hat), n.ahead=1,type="const")$fcst

   


}

  


kindly guide me that how can i solve out my problem or whaterror i doing. THANKS


[[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.



______
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.


[R] Help in R code

2020-10-04 Thread Faheem Jan via R-help
Hello , i am working in the functional time series using themultivariate time 
series data(hourly time series data). Sir  i am usingFAR model more than one 
order for which no statistical package is available inR, so for this i convert 
my data into functional form and obtained thefunctional principle component and 
from those FPCA i extract theircorresponding  FPCscores. Know i use the VAR 
model on those FPCscores forthe forecasting of each 24 hours through the VAR 
model, but the VAR give me theforecasted value for all 23hours  when i put 
phat=23, but whenever i putphat=24 i.e want to predict each 24 hours its give 
the results in the form ofNA. the code is given below

 

fdata<- function(mat){

  nb = 27 # number of basis functions for the data

  fbf = create.fourier.basis(rangeval=c(0,1), nbasis=nb) #basis for data

  args=seq(0,1,length=24)

  fdata1=Data2fd(args,y=t(mat),fbf) # functions generatedfrom discretized y

  return(fdata1)

}

prediction.ffpe = function(fdata1){

  n = ncol(fdata1$coef)

  D = nrow(fdata1$coef)

  #center the data

  #mu = mean.fd(fdata1)

  data = center.fd(fdata1)

  #ffpe = fFPE(fdata1, Pmax=10)

  #p.hat = ffpe[2] #order of the model

  d.hat=23

  p.hat=6

  #fPCA

  fpca = pca.fd(data,nharm=D, centerfns=TRUE)

  scores = fpca$scores[,0:d.hat]

  # to avoid warnings from vars predict function below

  colnames(scores) <- as.character(seq(1:d.hat))

  VAR.pre= predict(VAR(scores, p.hat), n.ahead=1,type="const")$fcst

  

}

 

kindly guide me that how can i solve out my problem or whaterror i doing. THANKS


[[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.


Re: [R] help in R code

2020-10-02 Thread Jim Lemon
Hi Faheem,
This is a complete guess, but the hours of the day may range from 0 to
23 not 1 to 24. So you may be asking for an out of range hour.

Jim

On Fri, Oct 2, 2020 at 10:00 PM Faheem Jan via R-help
 wrote:
>
>
> Hello , i am working in the functional time series using the multivariate 
> time series data(hourly time series data). Sir  i am using FAR model more 
> than one order for which no statistical package is available in R, so for 
> this i convert my data into functional form and obtained the functional 
> principle component and from those FPCA i extract their corresponding  
> FPCscores. Know i use the VAR model on those FPCscores for the forecasting of 
> each 24 hours through the VAR model, but the VAR give me the forecasted value 
> for all 23hours  when i put phat=23, but whenever i put phat=24 i.e want to 
> predict each 24 hours its give the results in the form of NA. the code is 
> given below
> fdata<- function(mat){  nb = 27 # number of basis functions for the data  fbf 
> = create.fourier.basis(rangeval=c(0,1), nbasis=nb) # basis for data  
> args=seq(0,1,length=24)  fdata1=Data2fd(args,y=t(mat),fbf) # functions 
> generated from discretized y  return(fdata1)}prediction.ffpe = 
> function(fdata1){  n = ncol(fdata1$coef)  D = nrow(fdata1$coef)  #center the 
> data  #mu = mean.fd(fdata1)  data = center.fd(fdata1)  #ffpe = fFPE(fdata1, 
> Pmax=10)  #p.hat = ffpe[2] #order of the model  d.hat=23  p.hat=6  #fPCA  
> fpca = pca.fd(data,nharm=D, centerfns=TRUE)  scores = fpca$scores[,0:d.hat]  
> # to avoid warnings from vars predict function below  colnames(scores) <- 
> as.character(seq(1:d.hat))  VAR.pre= predict(VAR(scores, p.hat), n.ahead=1, 
> type="const")$fcst  }
> kindly guide me that how can i solve out my problem or what error i doing. 
> THANKS
>
> [[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.

__
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.


[R] help in R code

2020-10-02 Thread Faheem Jan via R-help


Hello , i am working in the functional time series using the multivariate time 
series data(hourly time series data). Sir  i am using FAR model more than one 
order for which no statistical package is available in R, so for this i convert 
my data into functional form and obtained the functional principle component 
and from those FPCA i extract their corresponding  FPCscores. Know i use the 
VAR model on those FPCscores for the forecasting of each 24 hours through the 
VAR model, but the VAR give me the forecasted value for all 23hours  when i put 
phat=23, but whenever i put phat=24 i.e want to predict each 24 hours its give 
the results in the form of NA. the code is given below
fdata<- function(mat){  nb = 27 # number of basis functions for the data  fbf = 
create.fourier.basis(rangeval=c(0,1), nbasis=nb) # basis for data  
args=seq(0,1,length=24)  fdata1=Data2fd(args,y=t(mat),fbf) # functions 
generated from discretized y  return(fdata1)}prediction.ffpe = 
function(fdata1){  n = ncol(fdata1$coef)  D = nrow(fdata1$coef)  #center the 
data  #mu = mean.fd(fdata1)  data = center.fd(fdata1)  #ffpe = fFPE(fdata1, 
Pmax=10)  #p.hat = ffpe[2] #order of the model  d.hat=23  p.hat=6  #fPCA  fpca 
= pca.fd(data,nharm=D, centerfns=TRUE)  scores = fpca$scores[,0:d.hat]  # to 
avoid warnings from vars predict function below  colnames(scores) <- 
as.character(seq(1:d.hat))  VAR.pre= predict(VAR(scores, p.hat), n.ahead=1, 
type="const")$fcst  }
kindly guide me that how can i solve out my problem or what error i doing. 
THANKS

[[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.


Re: [R] Help in R code

2017-05-25 Thread Jeff Newmiller
Read the Posting Guide. Assuming your question is not about homework or 
statistics, the answer is probably yes. After reading the the Posting Guide you 
will also know that this is a plain text email list so you will need to set 
your email program appropriately. You will also know that a minimal example 
including data is (almost always) needed, but you might want to read some help 
about what that actually looks like [1][2][3], since many attachment types are 
also not allowed on the list.

If this seems like a lot of work, keep in mind that we can't read your mind and 
you will eventually have to break your problem down this way anyway, and you 
might just figure out the answer yourself if you are thorough in writing your 
minimal example. 

[1] 
http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example

[2] http://adv-r.had.co.nz/Reproducibility.html

[3] https://cran.r-project.org/web/packages/reprex/index.html
-- 
Sent from my phone. Please excuse my brevity.

On May 25, 2017 5:55:41 AM PDT, "Peter Hänninen" <peter.hanni...@gmail.com> 
wrote:
>Hi! Is this the correct place to ask for some help with R code? I have
>some
>minor questions I would need to ask.
>
>Best regards,
>Peter
>
>   [[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.

__
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.

[R] Help in R code

2017-05-25 Thread Peter Hänninen
Hi! Is this the correct place to ask for some help with R code? I have some
minor questions I would need to ask.

Best regards,
Peter

[[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.


Re: [R] Help in R code

2016-03-07 Thread PIKAL Petr
Hi

Keep your reply to the list.

Hm. There is natural language processing section in Task View. Maybe you could 
use already developed instruments for processing text. I vaguely remember there 
was also some article in R journal about text mining.

And searching internet by

R text mining

gave me plenty of possible suggestions including e.g package tm.

First line of your code gave me an error
> s <- unlist(lapply(posText, function(x) { str_split(x, "\n") }))
Error in lapply(posText, function(x) { : object 'posText' not found

And again
you still fail to keep to the recommended way of asking questions

1.   Plain text, not HTML posts

2.   input and output data sent as result of dput(posText[selection])

3.   provide ***reproducible*** code
Instead of trying to persuade all of us to accept your way of mailing you shall 
comply to ours if you want any reasonable help.

Cheers
Petr



Petr Pikal

From: deepak aggarwal [mailto:talk4dee...@gmail.com]
Sent: Thursday, March 03, 2016 2:07 PM
To: PIKAL Petr
Subject: Re: [R] Help in R code


   I have a column A having sentences and column B have some words. I 
want to check the part of speech column B word belongs to sentence present in 
column A.
Currently I am able to get part of speech for a single sentence using following 
code:
I am trying to get part of speech corresponds to each sentence in text file. 
Please suggest code for this.


On Wed, Mar 2, 2016 at 3:35 PM, PIKAL Petr 
<petr.pi...@precheza.cz<mailto:petr.pi...@precheza.cz>> wrote:
Hi

AFAIK what you say now is quite different from what you have told before. You 
want to get rid of all sentences which lack vattrwords.

Maybe it can be done by charmatch
> test<-paste("AAA AAA", "BBB", "CCC CCC", sep=".")
> test
[1] "AAA AAA.BBB.CCC CCC"
>
> test2<-c("AAA", "CCC")
> test.s<-unlist(strsplit(test, "\\."))
> test.s[charmatch(test2, test.s)]
[1] "AAA AAA" "CCC CCC"

BTW, you still fail to keep to the recommended way of asking questions
Plain text, not HTML posts
input and output data sent as result of dput()
provide reproducible code with errors you encountered.

Cheers
Petr



From: deepak aggarwal 
[mailto:talk4dee...@gmail.com<mailto:talk4dee...@gmail.com>]
Sent: Wednesday, March 02, 2016 8:59 AM
To: PIKAL Petr
Cc: r-help@r-project.org<mailto:r-help@r-project.org>

Subject: Re: [R] Help in R code

Hi Petr,
#loading word to be matched
at_list <- read.delim(file='C:/**/All.txt', header=FALSE, 
stringsAsFactors=FALSE)
names(at_list) <- c('attr')
at_list$attr <- tolower(at_list$attr)

vattribute<-at_list$attr

#loading sentences to be checked
posText <- read.delim(file='C:/*/Sentenc.txt', header=FALSE, 
stringsAsFactors=FALSE)
posText <- unlist(lapply(posText, function(x) { str_split(x, "\n") }))

test<-vattribute

test1 <- unlist(strsplit(posText,split="\\."))
# test1 <- strsplit(posText,".",fixed=TRUE)[[1]]
#test2<- test1[match(test1,test)]
test2<-test1[grep(paste(test, collapse="|"),test1)]

score <- c(test,test2)


#add row
newrow <- c(test1, score)
final_scores <- rbind(newrow)
final_scores
result<-as.data.frame(final_scores)

write.table(result, "C:/**/otput.txt", sep="\t")
 On Wed, Mar 2, 2016 at 12:33 PM, PIKAL Petr 
<petr.pi...@precheza.cz<mailto:petr.pi...@precheza.cz>> wrote:
Well, so again, my first answer was maybe too elaborated.

0. Send your replies also to help list.
1. Do not post in HTML.
2. Send some data by using output from
dput(yourobject)
3. Prepare desired output and again show it by dput(yourresult)
I still do not understand your desired output. In first sequence you dropped 
words „He is“ and „he“, in second „word“ and „can be“

Did you check?
4. Check if

?strsplit together with ?"%in%" can be of some help.

test <- "he is smart and fast in his work"
> test
[1] "he is smart and fast in his work"
> unlist(strsplit(test, " "))
[1] "he""is""smart" "and"   "fast"  "in""his"   "work"

unlist(strsplit(test, " ")) %in% "smart"
[1] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE
If the above does not work for you, you need to evaluate regular expressions.

See e.g.
?gsub

Cheers
Petr

From: deepak aggarwal 
[mailto:talk4dee...@gmail.com<mailto:talk4dee...@gmail.com>]
Sent: Tuesday, March 01, 2016 5:06 PM
To: PIKAL Petr
Subject: Re: [R] Help in R code


Sentence

Words

word string

1

he is a nice human being.he has great talent of singing

human,talent

a nice human being .,has great talent of singing

2

Word is having environmental issues which can be solved at local level nw

environmental,local

is ha

Re: [R] Help in R code

2016-03-01 Thread PIKAL Petr
Well, so again, my first answer was maybe too elaborated.

0. Send your replies also to help list.
1. Do not post in HTML.
2. Send some data by using output from
dput(yourobject)
3. Prepare desired output and again show it by dput(yourresult)

I still do not understand your desired output. In first sequence you dropped 
words „He is“ and „he“, in second „word“ and „can be“

Did you check?
4. Check if

?strsplit together with ?"%in%" can be of some help.

test <- "he is smart and fast in his work"
> test
[1] "he is smart and fast in his work"
> unlist(strsplit(test, " "))
[1] "he""is""smart" "and"   "fast"  "in""his"   "work"

unlist(strsplit(test, " ")) %in% "smart"
[1] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE

If the above does not work for you, you need to evaluate regular expressions.

See e.g.
?gsub

Cheers
Petr

From: deepak aggarwal [mailto:talk4dee...@gmail.com]
Sent: Tuesday, March 01, 2016 5:06 PM
To: PIKAL Petr
Subject: Re: [R] Help in R code


Sentence

Words

word string

1

he is a nice human being.he has great talent of singing

human,talent

a nice human being .,has great talent of singing

2

Word is having environmental issues which can be solved at local level nw

environmental,local

is having environmental issues which,solved at local level nw


sentence column has 1000 sentences and words have some selected words already 
written
now i want r code using which i can get word string in such a way that first 
human is searched in sentence 1 and then 2 words before human and 2 words after 
human will be writen in word string next it will search word talent and add it 
to word string

so in nutsheel for every word in words column it will fetch 2 words before and 
2 words after where match is found.

Seeking your help on this.

Regards
Deepak

On Tue, Mar 1, 2016 at 8:41 PM, PIKAL Petr 
<petr.pi...@precheza.cz<mailto:petr.pi...@precheza.cz>> wrote:
Hi

See in line

> -Original Message-
> From: R-help 
> [mailto:r-help-boun...@r-project.org<mailto:r-help-boun...@r-project.org>] On 
> Behalf Of deepak
> aggarwal
> Sent: Tuesday, March 01, 2016 1:30 PM
> To: r-help@r-project.org<mailto:r-help@r-project.org>
> Subject: [R] Help in R code
>
> Hi ,
>
> Seeking your help in coding following requirement in R.
>
> Vector 1 has sentences for ex. vector 1="he is a nice human being","he
> is smart and fast in his work"
>
> vector 2 has keywords found in each sentence seperated by comma for
> ex. vector2 for vector 1 =nice,being vector 2 for vector 1 =smart,work
>
> I want output to be vector 3 which will show 2 words before and after
> where match is found
>
> vector 1   vector2vector 3
> he is a nice human being  nice,beingis a nice
> human,human being
> he is smart and fast in his work   smart,workhe is smart,in his
> work
>
> in all i want vector 3 to how 2 words before and aftr to each word of
> vector 2 from vector 1.
>
> really appriciate your quick help on this.

OK. Some very quick help:

1. Do not post in HTML, your mail is barely readable.
2. Send some data by using output from
dput(yourobject)
3. Instead of vaguely explaining what you want to do, prepare desired output 
and again show it by dput(yourresult)
4. Check if

?strsplit together with ?"%in%" can be of some help.

test <- "he is smart and fast in his work"
> test
[1] "he is smart and fast in his work"
> unlist(strsplit(test, " "))
[1] "he""is""smart" "and"   "fast"  "in""his"   "work"

unlist(strsplit(test, " ")) %in% "smart"
[1] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE

Cheers
Petr

>
> Thanks & Regards
> Deepak
>
>   [[alternative HTML version deleted]]
>
> __
> R-help@r-project.org<mailto: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.


Tento e-mail a jakékoliv k němu připojené dokumenty jsou důvěrné a jsou určeny 
pouze jeho adresátům.
Jestliže jste obdržel(a) tento e-mail omylem, informujte laskavě neprodleně 
jeho odesílatele. Obsah tohoto emailu i s přílohami a jeho kopie vymažte ze 
svého systému.
Nejste-li zamýšleným adresátem tohoto emailu, nejste oprávněni tento email 
jakkoliv užívat, rozšiřovat, kopírovat či zveřejňovat.
Odesílatel

Re: [R] Help in R code

2016-03-01 Thread Deepak Aggarwal
Hahaha this is not homework..i am just trying to explore r vs sas

Sent from my iPhone

> On 01-Mar-2016, at 9:36 PM, Bert Gunter <bgunter.4...@gmail.com> wrote:
> 
> ... but if this is homework (it looks like it) ask your teachers for
> help, as there is a no homework policy on this list.
> 
> Cheers,
> Bert
> 
> 
> Bert Gunter
> 
> "The trouble with having an open mind is that people keep coming along
> and sticking things into it."
> -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )
> 
> 
>> On Tue, Mar 1, 2016 at 4:30 AM, deepak aggarwal <talk4dee...@gmail.com> 
>> wrote:
>> Hi ,
>> 
>> Seeking your help in coding following requirement in R.
>> 
>> Vector 1 has sentences for ex. vector 1="he is a nice human being","he is
>> smart and fast in his work"
>> 
>> vector 2 has keywords found in each sentence seperated by comma
>> for  ex. vector2 for vector 1 =nice,being
>> vector 2 for vector 1 =smart,work
>> 
>> I want output to be vector 3 which will show 2 words before and after where
>> match is found
>> 
>> vector 1   vector2vector 3
>> he is a nice human being  nice,beingis a nice
>> human,human being
>> he is smart and fast in his work   smart,workhe is smart,in his work
>> 
>> in all i want vector 3 to how 2 words before and aftr to each word of
>> vector 2 from vector 1.
>> 
>> really appriciate your quick help on this.
>> 
>> Thanks & Regards
>> Deepak
>> 
>>[[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.

__
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.


Re: [R] Help in R code

2016-03-01 Thread Bert Gunter
... but if this is homework (it looks like it) ask your teachers for
help, as there is a no homework policy on this list.

Cheers,
Bert


Bert Gunter

"The trouble with having an open mind is that people keep coming along
and sticking things into it."
-- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )


On Tue, Mar 1, 2016 at 4:30 AM, deepak aggarwal <talk4dee...@gmail.com> wrote:
> Hi ,
>
> Seeking your help in coding following requirement in R.
>
> Vector 1 has sentences for ex. vector 1="he is a nice human being","he is
> smart and fast in his work"
>
> vector 2 has keywords found in each sentence seperated by comma
> for  ex. vector2 for vector 1 =nice,being
> vector 2 for vector 1 =smart,work
>
> I want output to be vector 3 which will show 2 words before and after where
> match is found
>
> vector 1   vector2vector 3
> he is a nice human being  nice,beingis a nice
> human,human being
> he is smart and fast in his work   smart,workhe is smart,in his work
>
> in all i want vector 3 to how 2 words before and aftr to each word of
> vector 2 from vector 1.
>
> really appriciate your quick help on this.
>
> Thanks & Regards
> Deepak
>
> [[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.

__
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.


Re: [R] Help in R code

2016-03-01 Thread PIKAL Petr
Hi

See in line

> -Original Message-
> From: R-help [mailto:r-help-boun...@r-project.org] On Behalf Of deepak
> aggarwal
> Sent: Tuesday, March 01, 2016 1:30 PM
> To: r-help@r-project.org
> Subject: [R] Help in R code
>
> Hi ,
>
> Seeking your help in coding following requirement in R.
>
> Vector 1 has sentences for ex. vector 1="he is a nice human being","he
> is smart and fast in his work"
>
> vector 2 has keywords found in each sentence seperated by comma for
> ex. vector2 for vector 1 =nice,being vector 2 for vector 1 =smart,work
>
> I want output to be vector 3 which will show 2 words before and after
> where match is found
>
> vector 1   vector2vector 3
> he is a nice human being  nice,beingis a nice
> human,human being
> he is smart and fast in his work   smart,workhe is smart,in his
> work
>
> in all i want vector 3 to how 2 words before and aftr to each word of
> vector 2 from vector 1.
>
> really appriciate your quick help on this.

OK. Some very quick help:

1. Do not post in HTML, your mail is barely readable.
2. Send some data by using output from
dput(yourobject)
3. Instead of vaguely explaining what you want to do, prepare desired output 
and again show it by dput(yourresult)
4. Check if

?strsplit together with ?"%in%" can be of some help.

test <- "he is smart and fast in his work"
> test
[1] "he is smart and fast in his work"
> unlist(strsplit(test, " "))
[1] "he""is""smart" "and"   "fast"  "in""his"   "work"

unlist(strsplit(test, " ")) %in% "smart"
[1] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE

Cheers
Petr

>
> Thanks & Regards
> Deepak
>
>   [[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.


Tento e-mail a jakékoliv k němu připojené dokumenty jsou důvěrné a jsou určeny 
pouze jeho adresátům.
Jestliže jste obdržel(a) tento e-mail omylem, informujte laskavě neprodleně 
jeho odesílatele. Obsah tohoto emailu i s přílohami a jeho kopie vymažte ze 
svého systému.
Nejste-li zamýšleným adresátem tohoto emailu, nejste oprávněni tento email 
jakkoliv užívat, rozšiřovat, kopírovat či zveřejňovat.
Odesílatel e-mailu neodpovídá za eventuální škodu způsobenou modifikacemi či 
zpožděním přenosu e-mailu.

V případě, že je tento e-mail součástí obchodního jednání:
- vyhrazuje si odesílatel právo ukončit kdykoliv jednání o uzavření smlouvy, a 
to z jakéhokoliv důvodu i bez uvedení důvodu.
- a obsahuje-li nabídku, je adresát oprávněn nabídku bezodkladně přijmout; 
Odesílatel tohoto e-mailu (nabídky) vylučuje přijetí nabídky ze strany příjemce 
s dodatkem či odchylkou.
- trvá odesílatel na tom, že příslušná smlouva je uzavřena teprve výslovným 
dosažením shody na všech jejích náležitostech.
- odesílatel tohoto emailu informuje, že není oprávněn uzavírat za společnost 
žádné smlouvy s výjimkou případů, kdy k tomu byl písemně zmocněn nebo písemně 
pověřen a takové pověření nebo plná moc byly adresátovi tohoto emailu případně 
osobě, kterou adresát zastupuje, předloženy nebo jejich existence je adresátovi 
či osobě jím zastoupené známá.

This e-mail and any documents attached to it may be confidential and are 
intended only for its intended recipients.
If you received this e-mail by mistake, please immediately inform its sender. 
Delete the contents of this e-mail with all attachments and its copies from 
your system.
If you are not the intended recipient of this e-mail, you are not authorized to 
use, disseminate, copy or disclose this e-mail in any manner.
The sender of this e-mail shall not be liable for any possible damage caused by 
modifications of the e-mail or by delay with transfer of the email.

In case that this e-mail forms part of business dealings:
- the sender reserves the right to end negotiations about entering into a 
contract in any time, for any reason, and without stating any reasoning.
- if the e-mail contains an offer, the recipient is entitled to immediately 
accept such offer; The sender of this e-mail (offer) excludes any acceptance of 
the offer on the part of the recipient containing any amendment or variation.
- the sender insists on that the respective contract is concluded only upon an 
express mutual agreement on all its aspects.
- the sender of this e-mail informs that he/she is not authorized to enter into 
any contracts on behalf of the

[R] Help in R code

2016-03-01 Thread deepak aggarwal
Hi ,

Seeking your help in coding following requirement in R.

Vector 1 has sentences for ex. vector 1="he is a nice human being","he is
smart and fast in his work"

vector 2 has keywords found in each sentence seperated by comma
for  ex. vector2 for vector 1 =nice,being
vector 2 for vector 1 =smart,work

I want output to be vector 3 which will show 2 words before and after where
match is found

vector 1   vector2vector 3
he is a nice human being  nice,beingis a nice
human,human being
he is smart and fast in his work   smart,workhe is smart,in his work

in all i want vector 3 to how 2 words before and aftr to each word of
vector 2 from vector 1.

really appriciate your quick help on this.

Thanks & Regards
Deepak

[[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.