I have what I thought was a well prepared dataset.  I wanted to use the Apriori Algorithm in R to look for associations and come up with some rules.  I have about 16,000 rows (unique customers) and 179 columns that represent various items/categories.  The data looks like this:

Cat1  Cat2  Cat3  Cat4  Cat5 ... Cat179
1,        0,       0,        0,      1,     ...  0
0,        0,       0,        0,      0,     ...  1
0,        1,       1,        0,      0,     ...  0
...

I thought having a comma separated file with binary values (1/0) for each customer and category would do the trick, but after I read in the data using:

>data5 = read.csv("Z:/CUST_DM/data_test.txt",header = TRUE,sep=",")

and then run this command:

> rules = apriori(data5, parameter = list(supp = .001,conf = 0.8))

I get this error:

Error in asMethod(object):
column(s) 1, 2, 3, ...178 not logical or a factor. Discretize the columns first.  

I understand Discretize but not in this context I guess.  Everything is a 1 or 0.  I've even changed it from INT to CHAR and received the same error.  I also had the customer ID (unique) in column 1 but I understand that isn't necessary when the data is in this form (flat file). I'm sure there is something obvious I'm missing - I'm new to R.

What am I missing?  Thanks for your input.

Issue is that when I set a different it doesn't update neither my texblock.Text nor my listbox.Items;

Help very appreciated:)

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Runtime.InteropServices.WindowsRuntime;
using Windows.Foundation;
using Windows.Foundation.Collections;
using Windows.UI.Xaml;
using Windows.UI.Xaml.Controls;
using Windows.UI.Xaml.Controls.Primitives;
using Windows.UI.Xaml.Data;
using Windows.UI.Xaml.Input;
using Windows.UI.Xaml.Media;
using Windows.UI.Xaml.Navigation;
using Windows.Services.Maps;
using Windows.Devices.Geolocation;


// The Blank Page item template is documented at https://go.microsoft.com/fwlink/?LinkId=402352&clcid=0x409

namespace New_World_Map
{
    /// <summary>
    /// An empty page that can be used on its own or navigated to within a Frame.
    /// </summary>
    public sealed partial class MainPage : Page
    {
       

     

        List<string> stringlist = new List<string>();

        public MainPage()
        {
            this.InitializeComponent();

            this.RightTapped += MainPage_RightTapped;

            mapscontrol.CenterChanged += Mapscontrol_CenterChanged;

            listbox.DoubleTapped += Listbox_DoubleTapped;

            listview.Items.Add("Zoom In");

            listview.Items.Add("Zoom Out");

            listview.Items.Add("Navigate North");

            listview.Items.Add("Navigate South");

 …

Hi Experts,

 I am looking  for a data science project(using python) with complete source code and documentation , please help me with the same and will appreciate your help in this regard.  

Thanks,
SRK,

Team, need help resolving a laptop build that's continously failing at the bitlocker stage of task sequence, it's specific to just this model laptop, and I suspect it's related to some BIOS config.
Can you advise or direct me please,
Laptop Model = HP Elite X2 1012

______________________________________________________________________________________________________________________________________________
Error in logs:

... r
Initial TPM state: 55
Creating TPM owner authorization value
Succeeded loading resource DLL 'C:\Windows\CCM\1033\TSRES.DLL'
Taking ownership of TPM
uStatus == 0, HRESULT=80070005 (e:\nts_sccm_release\sms\framework\tscore\tpm.cpp,645)
pTpm->TakeOwnership( sOwnerAuth ), HRESULT=80070005 (e:\nts_sccm_release\sms\client\osdeployment\bitlocker\bitlocker.cpp,522)
InitializeTpm(), HRESULT=80070005 (e:\nts_sccm_release\sms\client\osdeployment\bitlocker\bitlocker.cpp,1313)
ConfigureKeyProtection( keyMode, pwdMode, pszStartupKeyVolume ), HRESULT=80070005 (e:\nts_sccm_release\sms\client\osdeployment\bitlocker\bitlocker.cpp,1552)
pBitLocker->Enable( argInfo.keyMode, argInfo.passwordMode, argInfo.sStartupKeyVolume, argInfo.bWait ), HRESULT=80070005 (e:\nts_sccm_release\sms\client\osdeployment\bitlocker\main.cpp,382)
'TakeOwnership' failed (2147942405)
Failed to take ownership of TPM. Ensure that Active Directory permissions are properly configured
ccess is denied. (Error: 80070005; Source: Windows)

Hi Do you know where I can install MS R MS SQL Server 2016?
I assume it is free. Am I right?

Its supposed to be a map guider an accurate gps for car by giving the accurate route through roads car must do.

underlined line is what debug shows it as wrong.

any other

using System;


using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Runtime.InteropServices.WindowsRuntime;
using Windows.Foundation;
using Windows.Foundation.Collections;
using Windows.UI.Xaml;
using Windows.UI.Xaml.Controls;
using Windows.UI.Xaml.Controls.Primitives;
using Windows.UI.Xaml.Data;
using Windows.UI.Xaml.Input;
using Windows.UI.Xaml.Media;
using Windows.UI.Xaml.Navigation;
using Windows.Devices.Geolocation;
using Windows.Services.Maps;


// The Blank Page item template is documented at http://go.microsoft.com/fwlink/?LinkId=402352&clcid=0x409

namespace App75
{
    /// <summary>
    /// An empty page that can be used on its own or navigated to within a Frame.
    /// </summary>
    public sealed partial class MainPage : Page
    {
        public MainPage()
        {
            this.InitializeComponent();

            button.Tapped += Button_Tapped;
        }

        private async void Button_Tapped(object sender, TappedRoutedEventArgs e)
        {
            BasicGeoposition b1 = new BasicGeoposition();

            b1.Latitude = Convert.ToDouble(startpositionlatitude.Text);

            b1.Longitude = Convert.ToDouble(startpositionlongitude.Text);

            BasicGeoposition b2 = new BasicGeoposition();
…

My procedure is passed a comma-separated list of IDs, for example 7369,7499,7839,7902. I tried to use it in my code like this:

declare
   p_empno_list constant varchar2(20) := '7369,7499,7839,7902';
begin
   for r in (
      select * from emp
      where  empno in (p_empno_list)
   )
   loop
      dbms_output.put_line(rpad(r.empno,9) || r.ename);
   end loop;
end;
/
but it just gives me an error:1 When SQL is expecting a character string such as SMITH, but is passed a comma-separated list such as SMITH,JONES,FORD,MILLER, no error is produced, but the query simply returns no rows.

ERROR at line 1:
ORA-01722: invalid number
ORA-06512: at line 4

How can i convert CSV to list so that it can be accepted in IN- clause?

Hello, needing some help here.

Cell Sheet5 B13 and C13 has values that represent temperature and dewpoint in Fahrenheit.  I need to convert each value into Celsius, the formala is 5/9*(Temp-32).  Then for the first value I need to use this formula 6.11*10.0**(7.5*Tc/(237.7+Tc)), where Tc is the value.  Then for the second value I need 6.11*10.0**(7.5*Tdc/(237.7+Tdc)), where Tdc is the second value.  Finally I need to divide the number from the second equation by the number in the first equation and times it by 100.

Finally, I need to computer =16.923+(Temp*1.85212*(10^-1))+(5.37941*RH)-((Temp*RH)*1.00254*(10^-1))+((Temp^2)*9.41695*(10^-3))+((RH^2)*7.28898*(10^-3))+((Temp^2)*RH*3.45372*(10^-4))-(Temp*(RH^2)*8.14971*(10^-4))+((RH^2)*(Temp^2)*1.02102*(10^-5))-((Temp^3)*3.8646*(10^-5))+((RH^3)*2.91583*(10^-5))+(RH*(Temp^3)*1.42721*(10^-6))+((RH^3)*Temp*1.97483*(10^-7))-((RH^2)*(Temp^3)*2.18429*(10^-8))+((RH^3)*(Temp^2)*8.43296*(10^-10))-((RH^3)*(Temp^3)*4.81975*(10^-11)).  Temperature is the original Fahrenheit value and RH is what we calculated above.


Trying to shoot for some type of function as I will need to use this to calculate multiple cells.  Thanks in advance for you help.

Hi,

I fairly new in R, I am doing some simple visualization in shiny app, I am trying to flip a bar chart downward using  scale_y_reverse() , it works well when I run my code in R console, but when I run it in shiny it does not flip the bar chart, below is my code in the server part:

output$trendbarPlot <- renderPlotly({
                              mydat <- mydatCopy %>% filter(Country ==input$Country)
                              

attacksbarplot = ggplot(data=mydat,aes(x=as.factor(Year))) + geom_bar() + theme_bw(base_size=35) + xlab("") + ylab("") + theme(axis.text.x = element_blank(), axis.ticks=element_blank(),panel.grid.major=element_blank(),panel.grid.minor=element_blank(),panel.border=element_blank())  + scale_y_reverse()


attacksbarplotnol = ggplot(data=mydat,aes(x=as.factor(Year))) + geom_bar() + theme_bw(base_size=15) + xlab("") + ylab("") + theme(axis.text.x = element_blank(), axis.text.y = element_blank(), axis.ticks=element_blank(),panel.grid.major=element_blank(),panel.grid.minor=element_blank(),panel.border=element_blank()) +  scale_y_reverse()
 
                              })

attached file has the required flipped bar chart in shiny.

Does anyone knows how can I solve this issue?
FlippedChart.png

Hi,
I am wondering what program could be used for the attached project.
I'm wanting to find what variable weightings produce the maximum profit.
Is this a form of regression and if so which one ?
Please manually input values into cell range M2:S2 and notice how it affects P/L cell (Yellow)

Many thanks for any advice you may have

Ian
Regression-Weightings.xlsx

Hi,
I have a spreadsheet where a User keeps track of numbered Jobs.
The current Userform can be updated with more information as Jobs progress.

Is there any way to write back the data in a different font or colour ?
We want to use "strikeout" font on cancelled Jobs (rather than have a new field in the spreadsheet).
I will put a "cancelled Job" button on the Userform for this purpose (with all the appropriate controls).

Example of current code to write back data is:

r = worksheetfunction.match(Val(JobBox), Ws.columns(1), 0)
currentrow = r
Me.firstnamebox = ws.cells(r, "b")
Me.lastnamebox = ws.cells(r, "c")
Me.Phonebox = ws.cells(r, "d")
Me.AgeBox = ws.cells(r, "e")
....etc,etc

cheers (P.S. Have not done this forum stuff for a zillion years so a bit out of date )

So I'm trying to put together a website to display analytics that are output from R Studio.  I'd like to keep the same masterpage and basic site design that we have on our other company sites which are all ASP.Net...   Any ideas on how I can programmatically accomplish this, these reports will be generated daily.  I know this is a broad question but all of my searches have left me unsure how to accomplish this.  Deadlines Friday, so...  =D  Even a basic direction at this point would be greatly appreciated.  I basically want to have the HTML page hosted within my ASP Masterpage as if they were one page.  Any ideas?

My data:

Gage_number Latitude    Longitude   Date    Gage_1  Gage_2  Gage_3

1   35.02   -80.84  1/1/2002    0.23    0   0.7
2   35.03   -81.04  1/2/2002    0   0   0.2
3   35.06   -80.81  1/3/2002    3.2 2.1 0.1
This is just a subset of data. I around 50 gauge stations. I want to find spatial auto correction between my gauge stations for rain fall. Based on distance between them. I have created my distance matrix. But I don’t want to use any library in R. I want to do all steps in a function.

loc <- read.table("rain_data.txt",header=TRUE,fill=TRUE)  
gauge.dists <- as.matrix(dist(cbind(loc$Latitude, loc$Latitude))) #distance matrix
Now since distance between gauges is not uniform. I want to use a certain bin size to decide about distance lags.

Pseudocode:

If the distance between guage pair 1-2 is 1 meter then assign a distance lag of 1 and so on So Lag 1=intergage dist=1 meter. So Lag 5=intergage dist=5 meter After creating that matrix I will find autocorrelation between gauge pairs.

so for lag 1 intergage dist=1 for lag 5 intergage dist=5

Gage pair   date    RainA   RainB       Gage pair   date    RainA   RainB

1-2 1/1/2002    0.23    0       1-3 1/1/2002    0.23    0.7
1-2 1/2/2002    0   0       1-3 1/2/2002    0   0.2
1-2 1/3/2002    3.2 2.1     1-3 1/3/2002    3.2 0.1
I have a hard time translating it into loop or a function. Any ideas?