similar to: use sliding window to count substrings found in large string

by using these two tables we have to create third table in this format where categories will be on the top and transaction will be in the rows, On 30 August 2017 at 16:42, Hemant Sain <hemantsain55 at gmail.com> wrote: > Hello Ulrik, > Can you please once check this code again on the following data set > because it doesn't giving same output to me due to absence of quantity,a

Hi Hemant, the solution is really quite similar, and the logic is identical: library(readr) library(dplyr) library(stringr) library(tidyr) data_help <- read_csv("data_help.csv") cat_help <- read_csv("cat_help.csv") # Helper function to split the Items and create a data_frame split_items <- function(items){ x <- items$Items_purchased_on_Receipts %>%

Hello Ulrik, Can you please explain this code means how and what this code is doing because I'm not able to understand it, if you can explain it i can use it in future by doing some Lil bit manipulation. Thanks data_help <- data_help %>% mutate(Purchase_ID = 1:n()) %>% group_by(Purchase_ID) %>% do(split_items(.)) cat_help %>% gather("Foo",

Hey PIKAL, It's not a homework neithe that is the real dataset i have signer NDA for my company so that i can share the original data file, Actually I'm working on a market basket analysis task but not able to convert my existing data table to appropriate format so that i can apply Apriori algorithm using R, and this is very important me to get it done because I'm an intern and if i

Hola grupo, estoy siguiendo una gu?a de la librer?a rLandsat que me la he descargado de: devtools::install_github("socialcopsdev/rLandsat") Y tras hacer los siguiente (obviamente tengo me he registrado previamente en la api correspondiente): product_id = c("LC08_L1TP_145049_20180301_20180308_01_T1", "LC08_L1TP_145049_20170330_20170414_01_T1",

Hola Ángel: Yo creo que tendrías que establecer el sistema de coordenadas de referencia de tu objeto raster antes de salvarlo como GTiff. Algo así: crs(r1) <-"+proj=utm +zone=14 +datum=WGS84" Saludos, Marcelino. El 20/02/2020 a las 1:42, Angel Cervantes escribió: > Hola a todos, quisiera pedirles su ayuda. Estoy tratando de crear un raster a partir de una tabla de datos

I have two tables: table_1: tab1_id, other_id table_2: id, tab2_id, something_else I would like to specify a has_one mapping from table_1 to table_2 but specifying that the join is based on (table_2.tab2_id = table_1.other_id). I am half way there with: class Table1 < ActiveRecord::Base set_table_name "table_1" set_primary_key "tab1_id" has_one :Table2, :class_name

I used to be able to browse the windows shares on the network through Nautilus. I can see them as computers, but when I click on them, it fails. (I'm on Ubuntu 6 LTS, AMD64) About 3 months ago, this failed. But, the windows boxes can all still access my shares on my Linux box. I was going through the trouble shooting, and found this out, but I'm not sure what to do next. I am

Hello all, using package tcltk this is my problem: I want to set a colour of a tclVar(). I have a tklabel (fixed in position) which should display two variables occasionally. If a constraint is fulfilled, the tklabel should display correct<-tclVar('correct') in green, otherwise it should display wrong<-tclVar('wrong') in red! To display the variables is no

Hello all, I'm trying to use zoo.read but can't figure out how to deal with the time format. (example below) would be nice if someone could help. best regards, Immanuel --------------------------- L <- "Date,Time,Open,High,Low,Close,Up,Down 05.02.2001,00:30,421.20,421.20,421.20,421.20,11,0 05.02.2001,01:30,421.20,421.40,421.20,421.40,7,0

Hello, I was wondering if there is a way to make a prompt for the user (exactly like raw_input() in Python), the response to which can then be used as an object. Thanks, Abir -- View this message in context: http://r.789695.n4.nabble.com/raw-input-prompt-tp4631852.html Sent from the R help mailing list archive at Nabble.com.

Hey all, I'm trying to replicate some plots with ggplot2. The problem is that I need to specify the color for every attribute (drug). If I use the code below the colors get automatically assigned but I need to plot drug1 in black drug2 in blue etc. How do I do that? q = qplot(days,vol,data = cellLine7064, color = drug, geom = c("line", "point")) best regards, Immanuel

Hi all, I have a problem with the virtual console. I run Xen 3.0.1 (compiled from the sources) on debian 3.1 (as dom0 and domU) on an AMD Athlon 64. I can''t terminate programs with ctrl+c. If I try for example to ping a machine, ping runs forever and cannot be stopped from the console. ctrl+z does then not work either. But if I do the same with ssh, everything works fine. There are

Hello all, I want to know how often one character occurs in a given string and the distance from between every two occurences. (distance = other characters between them). thanks

I am new to xen and trying to get the primary domain working properly before I create a new one. I am using the Gentoo unstable sources (2.6.16-rc5) and xen 3.0.1 and the kernel boots Ok and eth0 is activated. At this point the network is active and I can ping. Then I shutdown net.eth0 and start xend. This restarts net.eth0 and does some other stuff. Now every thing looks normal (ifconfig,

Hello all, I have an issue where I am generating data and trying to confirm the estimates using a sem. I keep getting an error about the degree of freedom being negative "Error in sem.default(ram, S = S, N = N, raw = raw, data = data, pattern.number = pattern.number, : The model has negative degrees of freedom = -6" Can someone explain this error or tell me what is wrong with my

Hello all, I'm trying to run a gird parameter search for a svm. Therefore I'M using the ksvm function from the kernlab package. ---- svp <- ksvm(Ktrain,ytrain,type="nu-svc",nu=C) ---- The problem is that the optimization algorithm does not return for certain parameters. I tried to use setTimeLimit() but that doesn't seem to help. I suspect that ksvm() calls c code that

Dear all, I want to equalize a symbolic derivative (of a function with two variables) with zero and convert it to a variable, e.g. x. I'm computing the derivative by: (found it in the archive) library(Ryacas) f <- function(x,y) (100-x-y)*x-10*x yacas(f) # register f with yacas Df <- f body(Df) <- yacas(expression(deriv(f(x,y),x)))[[1]] Df R-Output: function (x, y) 100 - x - y -

Hello all, I posted a questions on how to terminate a function call that does not return after a certain time ( I can not modify the function code) some time ago. Since I didn't find a solution I just came up with the idea to run the functions call in a separate thread who I could terminate a will. Would this be possible? Any pointers in the right direction? A looked briefly a snow and Rmpi

I am trying to open files on my Linux box from a windows share. I can browse to the directory, see the files, copy them to my computer, edit them, save them and copy the files back (using Nautilus). I can open a text file from the windows share with Gedit. I can not open a text file with Kate: error: The file or folder smb://pastor/SHARED FILES/text.txt does not exist. I can not open an .xls